case                     Signals the Start of a CASE Statement


 case <expr> of
   <clist> : <statement>;
   <clist> : <statement>;
   ...
   <clist> : <statement>
   else      <statement>
 end;

    A CASE statement executes one of a list of statements based on the
    value of an ordinal (Integer, Char, Boolean, enumerated) expression.
    The value is compared against one or more lists of values. If the
    value is found in a list, the corresponding statement is executed and
    the program then continues execution with the first statement
    following the END of the case statement. If no match is made, then the
    ELSE statement is executed If no ELSE statement is present, then none
    of the statements is executed.

          <expr>    An ordinal expression: any legal combination of
                    constants, variables, function calls, and operators,
                    yielding an ordinal (Integer, Char, Boolean,
                    enumerated) value.

         <clist>    A list of ordinal values, separated by commas  Must be
                    of the same type as <expr>. Turbo Pascal allows the
                    use of subranges (<low>..<high>) in the place of any
                    value.

     <statement>    Any legal statement. For multiple statements, use a
                    compound statement (see BEGIN).

  -------------------------------- Example ---------------------------------

           case Score of
             90..100 : Grade := 'A';
             80..89  : Grade := 'B';
             70..79  : Grade := 'C';
             60..69  : Grade := 'D';
             else      Grade := 'F'
           end;